home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T621387A.DCR / Scripts_14_Class LabelGod.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  1.6 KB  |  61 lines
  1. property layerList, backLabelSprite, frontLabelSprite, labelsOn, labelLayer, dontHide
  2.  
  3. on catchEvent me, xLayer
  4.   if xLayer = #mouseUp then
  5.     set dontHide to 0
  6.   else
  7.     if labelsOn then
  8.       if the myName of xLayer <> the myName of labelLayer then
  9.         set dontHide to 0
  10.         hideLabels(me)
  11.       end if
  12.     end if
  13.     repeat with i in layerList
  14.       if i = xLayer then
  15.         set labelLayer to i
  16.         next repeat
  17.       end if
  18.       crankDown(i)
  19.     end repeat
  20.     crankUp(labelLayer)
  21.     set theLayerName to toString(labelLayer)
  22.     set the member of sprite backLabelSprite to member (theLayerName && "shadow")
  23.     set the member of sprite frontLabelSprite to member (theLayerName && "labels")
  24.     if not labelsOn then
  25.       set labelsOn to 1
  26.       set the visible of sprite backLabelSprite to 1
  27.       set the visible of sprite frontLabelSprite to 1
  28.       set dontHide to 1
  29.     end if
  30.   end if
  31. end
  32.  
  33. on hideLabels me
  34.   if not dontHide then
  35.     if labelsOn then
  36.       set the visible of sprite backLabelSprite to 0
  37.       set the visible of sprite frontLabelSprite to 0
  38.       repeat with i in layerList
  39.         beNormal(i)
  40.       end repeat
  41.     end if
  42.     set labelsOn to 0
  43.   end if
  44. end
  45.  
  46. on new me, xBackSprite, xFrontSprite
  47.   set backLabelSprite to xBackSprite
  48.   set frontLabelSprite to xFrontSprite
  49.   set layerList to [:]
  50.   set labelsOn to 0
  51.   puppetSprite(backLabelSprite, 1)
  52.   puppetSprite(frontLabelSprite, 1)
  53.   set the visible of sprite backLabelSprite to 0
  54.   set the visible of sprite frontLabelSprite to 0
  55.   return me
  56. end
  57.  
  58. on addThing me, xThing
  59.   addProp(layerList, the number of member (toString(xThing) && "Labels"), xThing)
  60. end
  61.